home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1997 October / MACPOWER-1997-10.ISO.7z / MACPOWER-1997-10.ISO / AMUG / INTERNET / HTML Grinder 3.21.sit / HTML Grinder / Grinder Tools / Code Police / background_3885.xml next >
Extensible Markup Language  |  1997-07-01  |  12KB  |  45 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3885</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_2540.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3279.css" />
  11.     <part>
  12.         <id>5</id>
  13.         <type>button</type>
  14.         <visible> <true /> </visible>
  15.         <reserved5> 0 </reserved5>
  16.         <reserved4> 0 </reserved4>
  17.         <reserved3> 0 </reserved3>
  18.         <reserved2> 0 </reserved2>
  19.         <reserved1> 0 </reserved1>
  20.         <enabled> <true /> </enabled>
  21.         <rect>
  22.             <left>0</left>
  23.             <top>287</top>
  24.             <right>17</right>
  25.             <bottom>304</bottom>
  26.         </rect>
  27.         <style>opaque</style>
  28.         <showName> <false /> </showName>
  29.         <highlight> <false /> </highlight>
  30.         <autoHighlight> <true /> </autoHighlight>
  31.         <sharedHighlight> <true /> </sharedHighlight>
  32.         <family>0</family>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>29540</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Chicago</font>
  37.         <textSize>12</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <name>Help</name>
  40.         <script>on mouseUpfullhelpend mouseUpon mouseenterhelper "Click here for more help for HTML Grinder."end mouseenter</script>
  41.     </part>
  42.     <name></name>
  43.     <script>on printerif cd fld "flaggedfiles" is empty thenbeepanswer "There are no flagged files to print."else send mouseup to cd btn "print"end printeron closestackglobal flaggedfiles,allbrokenruleslock screenput empty into cd fld "flaggedfiles"put empty into flaggedfilesput empty into allbrokenrulesshowfiles falseunlock screenpass closestackend closestackfunction flaggedfilereportput "Report generated by the Code Police wheel for the HTML Grinder" &return&ﾂｬ"ﾂｩ1994-96 by Matterform Media, http://www.matterform.com" &return& return&ﾂｬ"Printed on" && the abbrev date into theheaderput theheader &return&return&return&ﾂｬ"FILES:                                                  RULES:" &return&ﾂｬcd fld "flaggedfiles" &return&return&ﾂｬ"DEFINITION OF RULES:" &return&return& rulesastext() into thestuffreturn thestuffend flaggedfilereportfunction rulesastextput cd fld allinfo into therulesset the itemdelimiter to tabput empty into alltherulesrepeat with x= 1 to the number of lines in therulesput unscrunch(item 1 of line x of therules) into thisruleput "Rule #" & x & " -- " before thisruleput thisrule &return&return after alltherulesend repeatset the itemdelimiter to ","return alltherulesend rulesastexton buildlistofrules--Set the variables:global flaggedfiles,alldescriptions,textones,texttwos,allrules,allbrokenrulesput empty into cd fld "flaggedfiles"disable cd btn "save as text..."disable cd btn "print"disable cd btn "load these files"put empty into flaggedfilesput empty into allbrokenrulesput empty into allrulesput empty into allDescriptionsput empty into TextOnesput empty into textTwosput "thecontents,shortfile,thefolder,thetitle" into containeroptionsput "is in,is not in,is,is not,starts with,does not start with,ends with,does not end with" into operatoroptionsrepeat with x=1 to the number of lines in cd fld allinfoset cursor to busyput line x of cd fld allinfo into thisruleset the itemdelimiter to tabput item 1 of thisrule into thedescriptionput item 2 of thisrule into thecontainer1put item 3 of thisrule into theoperator1put item 4 of thisrule into thetext1put item 5 of thisrule into andor2put item 6 of thisrule into thecontainer2put item 7 of thisrule into theoperator2put item 8 of thisrule into thetext2set the itemdelimiter to ","----GET THE CONTAINERSput item thecontainer1 of containeroptions into thecontainer1put item thecontainer2 of containeroptions into thecontainer2----GET THE OPERATORSput item theoperator1 of operatoroptions into theoperator1put item theoperator2 of operatoroptions into theoperator2----FIGURE OPERATORS FOR FIRST PARTput length(thetext1) into textlongif "start" is in theoperator1 thenput "char 1 to" && textlong && "of " into partof1if "not" is in theoperator1then put "is not" into theoperator1else put "is" into theoperator1else if "end" is in theoperator1 thenput "char length("& thecontainer1 &") -" && textlong-1 && "to length("& thecontainer1 &")" && "of " into partof1if "not" is in theoperator1then put "is not" into theoperator1else put "is" into theoperator1else put empty into partof1--put "(textvariable1"  && theoperator1 && partof1 & thecontainer1 & ")" into firstpart--if andor2 is not "1" then--FIGURE OPERATORS FOR SECOND PARTput length(thetext2) into textlongif "start" is in theoperator2 thenput "char 1 to" && textlong && "of " into partof2if "not" is in theoperator2then put "is not" into theoperator2else put "is" into theoperator2else if "end" is in theoperator2 thenput "char length("& thecontainer2 &") -" && textlong-1 && "to length("& thecontainer2 &")" && "of " into partof2if "not" is in theoperator2then put "is not" into theoperator2else put "is" into theoperator2else put empty into partof2--put " " & line andor2 of the value of cd btn "andor2" &&ﾂｬ"(textvariable2"  && theoperator2 && partof2 & thecontainer2 & ")" after firstpart-- "(" & partof2 & thecontainer2 && theoperator2 && "textvariable2)" after firstpartend if----SET THE VARIABLESput thedescription & return after alldescriptionsput firstpart & return after allrulesput thetext1 & return after textonesput thetext2 & return after texttwosend repeatend buildlistofruleson mousedownif the name of the target is ("card"&&quote&"code police"&quote)then deselectend mousedownon showfiles whatlock screenset the visible of cd btn "rules:" to whatset the visible of cd btn "files:" to whatset the visible of cd btn "save as text..." to whatset the visible of cd btn "load these files" to whatset the visible of cd btn "print" to whatset the visible of cd btn "cover" to whatset the visible of cd fld "flaggedfiles" to whatset the visible of cd fld "note" to whatunlock screen with wipe down fastif what is "true" thenselect line 2 of cd btn "show:"if the number of lines in cd fld "flaggedfiles" is 0 thendisable cd btn "save as text..."disable cd btn "load these files"disable cd btn "print"elseenable cd btn "save as text..."enable cd btn "load these files"enable cd btn "print"end ifelseselect line 1 of cd btn "show:"end ifend showfileson mainoptions whatset the visible of cd fld "description" to what--set the enabled of cd btn "container1" to whatset the enabled of cd btn "operator1" to whatset the visible of cd fld "text1" to whatset the enabled of cd btn "andor2" to whatend mainoptionson secondoptions whatset the enabled of cd btn "container2" to whatset the enabled of cd btn "operator2" to whatset the visible of cd fld "text2" to whatend secondoptionson setmenudefaultsselect line 1 of cd btn "container1"select line 2 of cd btn "operator1"select line 1 of cd btn "andor2"select line 1 of cd btn "container2"select line 2 of cd btn "operator2"secondoptions falseend setmenudefaultson deselect howif the visible of cd fld "flaggedfiles" is true thenselect line 0 of cd fld flaggedfilesexit deselectend ifif the selectedline of cd fld "rulelist" is emptythen exit deselect--lock screenif how is not "delete" then plugbackmainoptions falsesecondoptions falsesetmenudefaultsput empty into cd fld descriptionput empty into cd fld text1put empty into cd fld text2select line 0 of cd fld rulelistdisable cd btn "delete..."unlock screenend deselecton commandkeydown whatif what is "N" thenset the hilite of cd btn "new" to truewait 5set the hilite of cd btn "new" to falsesend mouseup to cd btn "new"else pass commandkeydownend commandkeydownon plugbackput word 2 of the selectedline of cd fld rulelist into thelineput backelipse(scrunch(cd fld description)) into line theline of cd fld rulelistput scrunch(cd fld description) &tab& word 2 of the selectedline of cd btn "container1" &tab&ﾂｬword 2 of the selectedline of cd btn "operator1" &tab& scrunch(cd fld text1) &tab&ﾂｬword 2 of the selectedline of cd btn "andor2" &tab& word 2 of the selectedline of cd btn "container2" &tab&ﾂｬword 2 of the selectedline of cd btn "operator2" &tab& scrunch(cd fld text2) into thestuffif length(thestuff) + length(cd fld allinfo) > 30000 thenbeepanswer "Sorry! There is no more memory for additional entries. This entry cannot be saved at its current size."exit to hypercardelse put thestuff into line theline of cd fld allinfoend plugbackfunction backelipse input,thelimitif thelimit is empty then put 18 into thelimitif length(input) <= thelimitthen return inputelse return char 1 to (thelimit-1) of input & "窶ｦ"end backelipsefunction frontelipse input,thelimitif thelimit is empty then put 36 into thelimitif length(input) <= thelimitthen return inputelse return "窶ｦ" & char (length(input)-thelimit +2) to length(input) of inputend frontelipseon pluginput word 2 of the selectedline of cd fld rulelist into thelineput line theline of cd fld allinfo into theinfoset the itemdelimiter to tabput unscrunch(item 1 of theinfo) into cd fld descriptionselect line (item 2 of theinfo) of cd btn "container1"select line (item 3 of theinfo) of cd btn "operator1"put unscrunch(item 4 of theinfo) into cd fld "text1"select line (item 5 of theinfo) of cd btn "andor2"select line (item 6 of theinfo) of cd btn "container2"select line (item 7 of theinfo) of cd btn "operator2"put unscrunch(item 8 of theinfo) into cd fld "text2"set the itemdelimiter to ","send mouseup to cd btn "andor2"end pluginon nonhtmlconverter thefileconverter thefile,,nontextend nonhtmlconverteron converter thefile,thecontents,modeglobal alldescriptions,textones,texttwos,allrules,flaggedfiles,allbrokenrulesput filename(thefile) into shortfileput folder(thefile) into thefolderput extractTitle(thecontents) into theTitleput empty into brokenrules--repeat with x=1 to the number of lines in allrulesput line x of allrules into thisruleif mode is "nontext" and ("thecontents" is in thisrule OR "thetitle" is in thisrule)then next repeatput unscrunch(line x of textones) into textvariable1put unscrunch(line x of texttwos) into textvariable2get "get the value of (" & thisrule & ")"do itif it is "true"then put x & " " after brokenrulesend repeat--if brokenrules is not empty thenput brokenrules &return after allbrokenrulesput thefile &return after flaggedfilesend ifend converteron alldoneglobal flaggedfiles,allbrokenrulesput the number of lines in flaggedfiles into numfilesput numfiles && "files were flagged down by the Code Police." into thealertif numfiles =1 then put "file was" into word 2 to 3 of thealert----COMPILE FEEDBACK REPORTput empty into feedbackrepeat with x =1 to the number of lines in flaggedfilesset cursor to busyput line x of flaggedfiles into thisfileput line x of allbrokenrules into thisruleput backelipse(thisrule,26) into thisruleif last word of thisrule contains "窶ｦ"then put "窶ｦ" into last word of thisruleput char 1 to (30-length(thisrule)) of "                              " into thesepput frontelipse(thisfile,32) & thesep & thisrule &return after feedbackend repeatif length(feedback) >= 30000 thenanswer "Too many flagged files to display." with "Cancel" or "Save as text"if it is "Save as text" thenput flaggedfilereport() into thetextput feedback after line 8 of thetextask file "Save as:"if the result is empty thenopen file itwrite thetext to file itclose file itend ifend ifelse put feedback into cd fld "flaggedfiles"--if numfiles >0then showfiles trueelse showfiles falsesend "alldone thealert" to homie()end alldoneon resetwheelset cursor to watchdeselectput empty into cd fld rulelistput empty into cd fld allinfoput empty into cd fld "flaggedfiles"showfiles falseend resetwheel</script>
  44. </background>
  45.